home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4 / Atari Forever 4.iso / PD_THEMA / CLI / COMMAND.410 / AUTO.COM next >
Encoding:
Text File  |  1998-03-14  |  4.8 KB  |  195 lines
  1. ;
  2. ; -----------------------------------
  3. ; Installations-Batch für COMMAND.PRG
  4. ; -----------------------------------
  5. ;
  6. ~cls
  7. ~gosub init
  8. ;
  9. chr 'a' Buchstabe_a    ; untere Laufwerkbezeichnung
  10. chr 'z' Buchstabe_z    ; obere Laufwerkbezeichnung
  11. crson
  12. ;
  13. lbl benutzereingabe
  14. cls
  15. echo %n%2Bitte Ziellaufwerk und Zielordner eingeben. Das Ziellaufwerk muß ohne ab-
  16. echo %2schließenden Doppelpunkt angegeben werden (z.B. c)!
  17. echo %2Der Zielordner muß ohne abschließenden Backslash ('\') angegeben werden. Das
  18. echo %2Wurzelverzeichnis muß durch einfaches Drücken von RETURN gewählt werden!
  19. echo
  20. cleararg    ; keine externe Parametrisierung
  21. inquire %2Ziellaufwerk:
  22. ?arg 0 goto laufwerk_ist_da
  23. goto benutzereingabe
  24. lbl laufwerk_ist_da
  25. let drive$ $0
  26. length Laenge drive$
  27. if Laenge <> 1 then goto benutzereingabe    ; nur ein Zeichen erlaubt
  28. chr '§drive$' Laufwerk
  29. |= Laufwerk 32    ; Kleinbuchstaben
  30. if Laufwerk < Buchstabe_a then goto benutzereingabe    ; komisches Laufwerk
  31. if Laufwerk > Buchstabe_z then goto benutzereingabe    ; komisches Laufwerk
  32. ;
  33. inquire %2Zielordner  :
  34. ?arg 1 right $1 \ goto benutzereingabe
  35. echo
  36. ?arg 1 gosub checkziel
  37. cls
  38. getdrv von$
  39. size0 $0:$1\batch mkdir $0:$1\batch
  40. size0 $0:$1\extcom mkdir $0:$1\extcom
  41. size0 $0:$1\docu mkdir $0:$1\docu
  42. echo Kopiere Dateien ...
  43. cp com*.prg $0:$1\ -v
  44. cd $0:$1\extcom\
  45. cp §von$:archiv\lhxarc.ttp -v
  46. off 8
  47. echo %nEntpacke Programm-Dateien ...
  48. lhxarc -o §von$:archiv\extern
  49. echo
  50. exist ..\command.hlp rm ..\command.hlp -pv
  51. cd ..
  52. extcom\lhxarc -o §von$:archiv\text command.hlp
  53. cd batch
  54. echo %nEntpacke Batch-Dateien ...
  55. ..\extcom\lhxarc.ttp -o §von$:batch\batch
  56. echo
  57. let datei$ ALIAS.DAT
  58. size0 ..\§datei$ goto KeineAliasDatei
  59. gosub JaNein
  60. if taste <> 0x6a then goto NichtErzeugen
  61. ;
  62. ; ---------------------
  63. ; ALIAS.DAT verschieben
  64. ; ---------------------
  65. ;
  66. exist ..\alias.dat cp ..\alias.dat ..\alias.old
  67. exist ..\alias.dat rm ..\alias.dat -pv
  68. lbl KeineAliasDatei
  69. mv -v alias.dat ..\
  70. ;
  71. lbl NichtErzeugen
  72. cd ..\docu
  73. echo %nAuspacken von COMMAND.TXT ...
  74. ..\extcom\lhxarc.ttp -o §von$:archiv\text command.txt
  75. ;
  76. cd ..
  77. let datei$ AUTO.COM
  78. size0 §datei$ goto AutoComErzeugen
  79. gosub JaNein
  80. if taste <> 0x6a then goto DasEndeIstNah
  81. ;
  82. ; ------------------------
  83. ; AUTO.COM zusammenbasteln
  84. ; ------------------------
  85. ;
  86. lbl AutoComErzeugen
  87. echo %nErzeuge §datei$ ...
  88. exist auto.com cp auto.com *.old
  89. exist auto.com rm -vp auto.com
  90. echo >auto.com ~off 13 ;notext
  91. echo >>auto.com off 6 ;kein history.dat
  92. echo >>auto.com appendenv TAB=4
  93. echo >>auto.com echo %%033Y7%%1
  94. ?arg 1 left $1 \ echo >>auto.com path $0:$1\extcom\
  95. ?arg 1 left $1 \ goto weiter_gehts
  96. ?arg 1 echo >>auto.com path $0:\$1\extcom\
  97. ?arg 1 echo >>auto.com appendenv MANUAL=$0:\$1\docu
  98. ?arg 1 goto weiter_gehts
  99. echo >>auto.com path $0:\extcom\
  100. echo >>auto.com appendenv MANUAL=$0:\docu
  101. lbl weiter_gehts
  102. ?arg 1 left $1 \ goto slash_schon_da
  103. ?arg 1 setarg \
  104. lbl slash_schon_da
  105. echo >>auto.com newalias as batch $0:$2$1\batch\as
  106. echo >>auto.com newalias cc batch $0:$2$1\batch\cc
  107. echo >>auto.com newalias test batch $0:$2$1\batch\test
  108. lbl DasEndeIstNah
  109. bell
  110. echo %n%n%n%9%9%6%033p *** Installation beendet *** %033q%n%n
  111. wait 1
  112. bell
  113. erase        ; Müll beseitigen
  114. cleararg    ;      - " -
  115. exit        ; That's it
  116. ;
  117. ;
  118. lbl ganz_falsch
  119. cleararg
  120. echo %n%2FEHLER! '\' bzw. '/' nicht zulässig%n
  121. goto benutzereingabe
  122. ;
  123. lbl checkziel
  124. exist $0:$1 goto schon_da
  125. mkdir $0:$1
  126. return
  127. ;
  128. lbl schon_da
  129. if status = 16 then return
  130. echo Zielverzeichnis kann nicht erzeugt werden -> Abbruch
  131. stop
  132. ;
  133. ;
  134. ; ----------------
  135. ; Initialisierung:
  136. ; ----------------
  137. ;
  138. lbl init
  139. ~off 13
  140. off 6
  141. off 15
  142. off 8
  143. ;
  144. erase            ; alle Variablen löschen
  145. ;
  146. chr 'j' ja        ; Wird bei Ja/Nein-Abfragen gebraucht
  147. chr 'n' nein    ;                - " -
  148. ;
  149. crsoff
  150. echo %n%n
  151. echo %3*******************************************************
  152. echo %3*                                                     *
  153. echo %3*             Installation von %033pCOMMAND.PRG%033q            *
  154. echo %3*                                                     *
  155. echo %3*******************************************************%n%n%n
  156. echo %3 README.TXT lesen (j(a) / n(ein) / ESC = Abbruch)
  157. ;
  158. repeat
  159.     inkey taste
  160.     &= taste 255                ; keine Scancodes
  161.     if taste = 27 then exit        ; ESC-Taste -> raus aus Installation
  162.     |= taste 32                    ; Kleinbuchstaben
  163.     if taste = nein then return
  164. until taste = ja
  165. ;
  166. ; ----------------------
  167. ; Ausgabe von README.TXT
  168. ; ----------------------
  169. ;
  170. cls
  171. more -s readme.txt
  172. wait
  173. return
  174. ;
  175. ;
  176. ; -----------------------
  177. ; holt 'j' oder 'n'-Taste
  178. ; -----------------------
  179. ;
  180. lbl JaNein
  181. echo %n%n %033p §datei$ %033q überschreiben (j/n) ? %l
  182. bell
  183. while 1 = 1                        ; Endlosschleife
  184.  inkey taste
  185.  &= taste 255                    ; kein Scan-Code
  186.  |= taste 32                    ; Kleinbuchstaben
  187.  if taste = ja then wexit        ; Ja
  188.  if taste = nein then wexit        ; Nein
  189. wend
  190. ;
  191. if taste = ja then echo Ja else echo Nein
  192. echo
  193. return
  194.  
  195.